home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
os2
/
rgiserv.zip
/
RGI_T2.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-05-16
|
2KB
|
49 lines
/* Test the RGIUtils Function */
dq='"'
sq="'"
Call RGIUtils '-ct text/html -exp "10 minutes"'
/*Say 'content-type: text/html'
Say ''*/
If rgi_retc<>0 Then
Say rgi_msgi rgi_mtxt
Say '<form action=cgi-bin/rgi_t3.cmd method=post>'
Say '<html><head><title>' /* Introduce the document */
Say 'RGI Installation Test' /* as part of the RGI */
Say '</head></title>' /* Installation Test */
Say '<body>'
Say '<em>This screen is brought to you by RGI_T2.CMD</em>'
Say 'This document tests the RGIUtils function.'
Say '<p>'
Say 'It issues the'
Say '<p><ce>'
Say '<tt>Call RGIUtils' sq'-ct text/html -exp' dq'10 minutes'dq||sq','sq'No'sq'</tt>'
Say '</ce>'
Say '<p>statement which generates: the "Content-Type: text/html" line and an expiration'
Say 'date which is 10 minutes from now.'
Say '<p>To see what is generated we use a loop like:'
Say '<tt>'
Say '<br>Do i=1 to rgi_hdr.0'
Say '<br> Say rgi_hdr.i'
Say '<br> End i</tt>'
Call RGIUtils '-ct text/html -exp "10 minutes"','No'
if rgi_retc<>0 Then
Say rgi_msgi rgi_mtxt
Else Do
Say '<p>' rgi_hdr.0 'lines are generated:'
Say '<tt>'
Do i=1 to rgi_hdr.0
Say '<br>'rgi_hdr.i
End i
Say '</tt>'
Say '<p>(the last line is just a newline character to close the MIME data.)'
End
Say '</tt>'
Say '<p><p>'
Say 'Press the'
Say '<input type=submit value=Continue> button now.'
Call RGIParse '-k'
Say '<input type=hidden name=fname size=20 value='rgi.fname'>'
Say '<input type=hidden name=cname size=20 value='rgi.cname'>'
Say '</body>'
Say '</html>'